home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / CLIENT.ALS < prev    next >
Encoding:
Text File  |  2000-02-17  |  25.1 KB  |  682 lines
  1. adcc {
  2.   if ($1 != $null) {
  3.     if ($usr($1)) {
  4.       if ($chkflag($usr($1),*,c)) {
  5.         if ($chkflag($usr($1),*,s)) iecho $hc($nc($1)) can already DCC send/chat with you!
  6.         else {
  7.           chattr $usr($1) +s
  8.           .timer 1 300 chattr $usr($1) -s
  9.           qnotice $nc($1) You may now send me any file for the next 5 minutes.
  10.           iecho $hc($nc($1)) can now send any file to you for the next 5 minutes.
  11.         }
  12.       }
  13.       elseif ($chkflag($usr($1),*,s)) {
  14.         chattr $usr($1) +c
  15.         .timer 1 300 chattr $usr($1) -c
  16.         qnotice $nc($1) You may now chat with me for the next 5 minutes.
  17.         iecho $hc($nc($1)) can now chat with you for the next 5 minutes.
  18.       }
  19.       else {
  20.         chattr $usr($1) +cs
  21.         .timer 1 300 chattr $usr($1) -cs
  22.         qnotice $nc($1) You may now chat or send me any file for the next 5 minutes.
  23.         iecho $hc($nc($1)) can now chat or send any file to you for the next 5 minutes.
  24.       }
  25.     }
  26.     else {
  27.       adduser $1 $address($1,1)
  28.       chattr $1 cs
  29.       .timer 1 300 remuser $1
  30.       qnotice $nc($1) You may now chat or send me any file for the next 5 minutes.
  31.       iecho $hc($nc($1)) can now chat or send any file to you for the next 5 minutes.
  32.     }
  33.   }
  34.   else iecho Syntax: /adcc <nickname>
  35. }
  36. af {
  37.   set %tmp.af $read -nl [ $+ [ $lines(cpopup.pop) ] ] cpopup.pop
  38.   set %tmp.af $pls($remove($gettok(%tmp.af,1,32),&,.),1)
  39.   if (%tmp.af !isnum) set %tmp.af 1
  40.   set %i.af $$?="Enter description of file"
  41.   set %j.af $$dir="Location of file" \
  42.   write cpopup.pop .& $+ %tmp.af %i.af $chr(123) run %j.af $chr(125)
  43.   iecho Added $hc(%i.af) to launch list.
  44.   .load -pc cpopup.pop
  45. }
  46. aidle {
  47.   if (%idlectimer) unidle
  48.   set %idlechan $chr(35) $+ $rndstr(9)
  49.   .quote join %idlechan
  50.   .timer 0 %it msg %idlechan %im
  51.   set %idlectimer $ltimer
  52. }
  53. auto {
  54.   iecho Please do not attempt to use /auto for adding people to auto-op.
  55.   iecho Instead, add the user to your userlist and use the flag +a.
  56. }
  57. av {
  58.   if (%aver) say ircN - [ver $+ $gettok(%ver,2,32) $+ ] - $nv($1) - [ $avconv(%aver) ] -
  59.   else iecho No addons were detected.
  60. }
  61. away {
  62.   unset %knowaway %awaytime
  63.   if ($1 != $null) {
  64.     set %awaytime $ctime
  65.     .quote away : $+ $1-
  66.     set %awaymsg $1-
  67.     if ((%away.chan) && ($show) && (%away.chan != all)) {
  68.       set %i.away 0
  69.       :start
  70.       inc %i.away
  71.       if ($gettok(%away.chan,%i.away,44)) {
  72.         if ($me ison $gettok(%away.chan,%i.away,44)) {
  73.           if ($form(ircN,awaymsg1)) $readini %formats ircN awaymsg1
  74.           else describe $gettok(%away.chan,%i.away,44) is away, $b($1-) [log: $+ $upper(%msglog) $+ ] [page: $+ $upper(%pager) $+ ] $e-mail($email) $uin(%uin)
  75.         }
  76.         goto start
  77.       }
  78.     }
  79.     elseif (($chan(0)) && ($show)) {
  80.       if ($form(ircN,awaymsg2)) $readini %formats ircN awaymsg2
  81.       else ame is away, $b($1-) [log: $+ $upper(%msglog) $+ ] [page: $+ $upper(%pager) $+ ] $e-mail($email) $uin(%uin)
  82.     }
  83.     tb
  84.     if (%idlesave == on) aidle
  85.   }
  86.   else {
  87.     set %backtime $ctime
  88.     .quote away
  89.     if (%idlectimer) unidle
  90.     if ($lines($td(msg.txt))) mchk
  91.     if ($lines($td(page.txt))) f9
  92.     tb
  93.   }
  94. }
  95. awaysettings dialog -m ircN.awaysettings ircN.awaysettings
  96. back {
  97.   if ($away) {
  98.     if ($1 != $null) set %tmp.back , $b($1-)
  99.     elseif ($len(%dback) > 1) set %tmp.back , %dback
  100.     else unset %tmp.back
  101.     if ((%away.chan) && ($show) && (%away.chan != all)) {
  102.       set %i.back 0
  103.       :start
  104.       inc %i.back
  105.       if ($gettok(%away.chan,%i.back,44)) {
  106.         if ($me ison $gettok(%away.chan,%i.back,44)) {
  107.           if ($form(ircN,backmsg1)) $readini %formats ircN backmsg1
  108.           else describe $gettok(%away.chan,%i.back,44) has returned $+ %tmp.back $+ . [gone $+ : $+ $gone $+ ]
  109.         }
  110.         goto start
  111.       }
  112.     }
  113.     elseif (($chan(0)) && ($show)) {
  114.       if ($form(ircN,backmsg2)) $readini %formats ircN backmsg2
  115.       else ame has returned $+ %tmp.back $+ . [gone $+ : $+ $gone $+ ]
  116.     }
  117.     unset %awaymsg
  118.     away
  119.   }
  120.   else iecho You weren't away!
  121. }
  122. backup {
  123.   set %i.backup $?!="Overwrite files in [ [ %dir ] $+ ] \backup\?"
  124.   .copy $iif(%i.backup,-o) *.ini %dir $+ \backup\
  125.   .copy $iif(%i.backup,-o) *.mrc %dir $+ \backup\
  126.   .copy $iif(%i.backup,-o) *.als %dir $+ \backup\
  127.   .copy $iif(%i.backup,-o) *.pop %dir $+ \backup\
  128.   iecho Backup complete.
  129. }
  130. btnetfld dialog -m ircN.btnetfld ircN.btnetfld
  131. cF1 cloaksettings
  132. cF2 if (%cf2cmd) %cf2cmd
  133. cF3 if (%cf3cmd) %cf3cmd
  134. cF5 if (%cf5cmd) %cf5cmd
  135. cF7 if (%cf7cmd) %cf7cmd
  136. cF8 if (%cf8cmd) %cf8cmd
  137. cF9 close -c
  138. cF10 close -s
  139. cF11 close -m
  140. cF12 whois %lsmsg
  141. cloaksettings dialog -m ircN.cloaksettings ircN.cloaksettings
  142. cls clear
  143. color {
  144.   unset %tmp.color
  145.   set %i.color 0
  146.   :start
  147.   inc %i.color
  148.   if (%i.color < 16) {
  149.     set %tmp.color %tmp.color  $+ %i.color $+ ** $+ %i.color $+ **
  150.     goto start
  151.   }
  152.   iecho %tmp.color %h
  153. }
  154. deltemp {
  155.   :start
  156.   if ($findfile($tp,*.txt,1)) {
  157.     .remove $findfile($tp,*.txt,1)
  158.     goto start
  159.   }
  160.   cclr
  161. }
  162. delog {
  163.   :start
  164.   if ($findfile($logdir,*.log,1)) {
  165.     .remove $findfile($logdir,*.log,1)
  166.     goto start
  167.   }
  168.   :start2
  169.   if ($findfile($logdir,*.txt,1)) {
  170.     .remove $findfile($logdir,*.txt,1)
  171.     goto start2
  172.   }
  173.   if ($1 != -q) iecho All $sc(.log) and $sc(.txt) files in $logdir deleted.
  174.   cclr
  175. }
  176. dl run explorer $remove($mirc.ini(extensions,n0),defaultEXTDIR:)
  177. dns .dns $1-
  178. doquitcheck {
  179.   set %i.doquitcheck 0
  180.   :start
  181.   inc %i.doquitcheck
  182.   if ($chan(%i.doquitcheck) != $null) {
  183.     if (($nick($chan(%i.doquitcheck),0) == 1) && ($me !isop $chan(%i.doquitcheck)) && ($nick($chan(%i.doquitcheck),1) == $me) && ($findtok(%cyclechannels,$chan(%i.doquitcheck),1,44) == $null)) {
  184.       .quote part $chan(%i.doquitcheck) $+ $crlf $+ join $chan(%i.doquitcheck) $+ $crlf $+ mode $chan(%i.doquitcheck) %autocycle.mode
  185.       set %cyclechannels $addtok(%cyclechannels,$chan(%i.doquitcheck),44)
  186.     }
  187.     goto start
  188.   }
  189. }
  190. dos run command.com
  191. d {
  192.   if ($2 != $null) {
  193.     crypt 1 $1 $2-
  194.     echo -tai2 < $+ $hc(crypt) $+ : $+ $sc($1) $+ > $result
  195.   }
  196.   else iecho Syntax: /d <password> <text>
  197. }
  198. e {
  199.   if ($1 != $null) {
  200.     crypt 0 %encryptpw $strip($1-)
  201.     say ] $result
  202.     echo -tai2 < $+ $iif(#,$pst($me,#),$me) $+ : $+ $hc(crypt) $+ : $+ $sc(%encryptpw) $+ > $strip($1-)
  203.   }
  204.   else iecho Syntax: /e <text>
  205. }
  206. echo {
  207.   if (($sock(remote.*,0)) && ($1) && (@iTelnet.* !iswm $1)) rc.relay $1-
  208.   echo $ansi2mirc($1-)
  209. }
  210. echosettings dialog -m ircN.echosettings ircN.echosettings
  211. exit {
  212.   if ($1 == -y) {
  213.     if ($2) exit $2-
  214.     else exit
  215.   }
  216.   elseif ($?!="Are you sure you want to exit?") {
  217.     if ($1 != $null) exit $1-
  218.     else exit $read -n $td(quotes.txt)
  219.   }
  220. }
  221. F1 help
  222. F2 {
  223.   if ((@irc*á* iswm $active) && (%i2.msgbind)) editbox -ap %i2.msgbind
  224.   elseif (($active ischan) && ($nc($editbox($active)) != $null)) editbox -ap $ncomp($nc($editbox($active)))
  225.   elseif ($active == @ircII) {
  226.     set %i.f2 0
  227.     :start
  228.     inc %i.f2
  229.     if ($chan(%i.f2) != $null) {
  230.       if ($chan(%i.f2) == %ircIIchan) {
  231.         inc %i.f2
  232.         if ($chan(%i.f2)) ircIIchan $chan(%i.f2)
  233.         else ircIIchan $chan(1)
  234.         return
  235.       }    
  236.       goto start
  237.     }
  238.     else ircIIchan $chan(1)
  239.   }
  240. }
  241. F3 {
  242.   if (@irc*á* iswm $active) %i2.evt
  243.   else editbox -ap $ncomp(%lsnick)
  244. }
  245. F4 mail
  246. F5 sendmail $$?="Enter email address"
  247. F6 run $browser
  248. F7 mchk
  249. F8 {
  250.   .remove $tp(pmsg.txt)
  251.   write -c $td(msg.txt)
  252.   window -c @Messages
  253.   tb
  254.   set %nummsg 0
  255.   iecho Message index has been cleared.
  256.   tsound delmsg
  257. }
  258. F9 {
  259.   if ($lines($td(page.txt)) == 0) {
  260.     iecho No pages to read.
  261.     return
  262.   }
  263.   write -c $tp(pagetmp.txt) delete all $chr(123) window -c @pages $vl F10 $chr(125)
  264.   write $tp(pagetmp.txt) -
  265.   write $tp(pagetmp.txt) exit $chr(123) window -c @pages $chr(125)
  266.   window -al @Pages 30 30 570 300 $tp(pagetmp.txt) Fixedsys 412
  267.   aline @Pages $str(-,70)
  268.   set %i.f9 0
  269.   :start
  270.   inc %i.f9
  271.   set %tmp.f9 $read -nl [ $+ [ %i.f9 ] ] $td(page.txt)
  272.   if (%tmp.f9 != $null) {
  273.     aline @Pages Nick: $gettok(%tmp.f9,1,32)
  274.     aline @Pages From: $gettok(%tmp.f9,2,32) on ( $+ $gettok(%tmp.f9,3,32) at $gettok(%tmp.f9,4,32) $+ )
  275.     aline @Pages Page: $gettok(%tmp.f9,5-,32)
  276.     aline @Pages $str(-,70)
  277.     goto start
  278.   }
  279. }
  280. F10 {
  281.   write -c $td(page.txt)
  282.   window -c @Pages
  283.   tb
  284.   iecho All pages have been deleted.
  285.   tsound delmsg
  286. }
  287. F11 if (%f11cmd) %f11cmd | elseif (%kkchan) %kkchan
  288. F12 if (%f12cmd) %f12cmd | elseif (%kchan) %kchan
  289. fldprot dialog -m ircN.fldprot ircN.fldprot
  290. help winhelp ircN.hlp $1-
  291. load {
  292.   if ($right($1,4) == .ad2) {
  293.     if ($exists($adn($1))) addon2 $1
  294.     else iecho Unable to locate addon ' $+ $hc($1) $+ '
  295.   }
  296.   elseif ($right($1,4) == .thm) {
  297.     if ($exists($themedir($1))) {
  298.       unset %themefullname
  299.       set %themefullname $readini $themedir($1) default name
  300.       set %themename $1
  301.       iecho Loaded sound theme ' $+ $hc($1) $+ ' $rbrk(%themefullname)
  302.       set %theme on
  303.     }
  304.     else iecho Unable to locate sound theme ' $+ $hc($1) $+ '
  305.   }
  306.   elseif ($right($1,4) == .th2) {
  307.     if ($exists($themedir($1))) {
  308.       set %sthemes on
  309.       set %tmpformats %formats
  310.       set %formats $themedir($1)
  311.       if (($form(theme,ircn7script) == $true) && ($form(theme,name))) {
  312.         set %formats $themedir($1)
  313.         if ($form(theme,unload) != $true) set %script-theme $form(theme,name)
  314.         if ($form(ircN,hc) != $null) set %c2 $form(ircN,hc)
  315.         if ($form(ircN,sc) != $null) set %c3 $form(ircN,sc)
  316.         if ($form(ircN,ac) != $null) set %c4 $form(ircN,ac)
  317.         if ($form(ircN,iecho) != $null) set %h $form(ircN,iecho)
  318.         if ($form(nickcolors,shitted) != $null) set %cn1 $form(nickcolors,shitted)
  319.         if ($form(nickcolors,user != $null)) set %cn2 $form(nickcolors,user)
  320.         if ($form(nickcolors,protected) != $null) set %cn3 $form(nickcolors,protected)
  321.         if ($form(nickcolors,voice) != $null) set %cn4 $form(nickcolors,voice)
  322.         if ($form(nickcolors,op) != $null) set %cn5 $form(nickcolors,op)
  323.         if ($form(nickcolors,bot) != $null) set %cn6 $form(nickcolors,bot)
  324.         if ($form(nickcolors,master) != $null) set %cn7 $form(nickcolors,master)
  325.         if ($form(nickcolors,owner) != $null) set %cn8 $form(nickcolors,owner)
  326.         if ($form(mIRCcolours,action) != $null) colour action $form(mIRCcolours,action)
  327.         if ($form(mIRCcolours,ctcp) != $null) colour ctcp $form(mIRCcolours,ctcp)
  328.         if ($form(mIRCcolours,highlight) != $null) colour highlight $form(mIRCcolours,highlight)
  329.         if ($form(mIRCcolours,info) != $null) colour info $form(mIRCcolours,info)
  330.         if ($form(mIRCcolours,info2) != $null) colour info2 $form(mIRCcolours,info2)
  331.         if ($form(mIRCcolours,invite) != $null) colour invite $form(mIRCcolours,invite)
  332.         if ($form(mIRCcolours,join) != $null) colour join $form(mIRCcolours,join)
  333.         if ($form(mIRCcolours,kick) != $null) colour kick $form(mIRCcolours,kick)
  334.         if ($form(mIRCcolours,mode) != $null) colour mode $form(mIRCcolours,mode)
  335.         if ($form(mIRCcolours,nick) != $null) colour nick $form(mIRCcolours,nick)
  336.         if ($form(mIRCcolours,normal) != $null) colour normal $form(mIRCcolours,normal)
  337.         if ($form(mIRCcolours,notice) != $null) colour notice $form(mIRCcolours,notice)
  338.         if ($form(mIRCcolours,notify) != $null) colour notify $form(mIRCcolours,notify)
  339.         if ($form(mIRCcolours,other) != $null) colour other $form(mIRCcolours,other)
  340.         if ($form(mIRCcolours,own) != $null) colour own $form(mIRCcolours,own)
  341.         if ($form(mIRCcolours,part) != $null) colour part $form(mIRCcolours,part)
  342.         if ($form(mIRCcolours,quit) != $null) colour quit $form(mIRCcolours,quit)
  343.         if ($form(mIRCcolours,topic) != $null) colour topic $form(mIRCcolours,topic)
  344.         if ($form(mIRCcolours,wallops) != $null) colour wallops $form(mIRCcolours,wallops)
  345.         if ($form(mIRCcolours,whois) != $null) colour whois $form(mIRCcolours,whois)
  346.         if ($form(mIRCcolours,editbox) != $null) colour editbox text $form(mIRCcolours,editbox)
  347.         if ($form(mIRCcolours,listbox) != $null) colour listbox text $form(mIRCcolours,listbox)
  348.         if ($form(mIRCcolours,editbg) != $null) colour editbox $form(mIRCcolours,editbg)
  349.         if ($form(mIRCcolours,listbg) != $null) colour listbox $form(mIRCcolours,listbg)
  350.         if ($form(mIRCcolours,background) != $null) colour background $form(mIRCcolours,background)
  351.         if ($form(theme,sound) == yes) {
  352.           unset %themefullname
  353.           set %themefullname $readini -n $themedir($1) default name
  354.           set %themename $1
  355.           iecho Loaded sound theme ' $+ $hc($1) $+ ' $rbrk(%themefullname)
  356.           set %theme on
  357.           if ($form(theme,unload) != $true) iecho Loaded script/sound theme ' $+ %script-theme $+ '
  358.           else iecho Loaded script/sound theme ' $+ $form(theme,name) $+ '
  359.         }
  360.         elseif ($form(theme,unload) != $true) iecho Loaded script theme ' $+ %script-theme $+ '
  361.         else iecho Loaded script theme ' $+ $form(theme,name) $+ '
  362.         if ($form(loadmsg,n1)) {
  363.           set %i.load 0
  364.           :start2
  365.           inc %i.load
  366.           set %tmp.load n $+ %i.load
  367.           if ($form(loadmsg,%tmp.load)) {
  368.             iecho $readini %formats loadmsg %tmp.load
  369.             goto start2
  370.           }
  371.         }
  372.         if ($form(theme,unload)) {
  373.           set %formats %tmpformats
  374.           unset %tmpformats
  375.         }
  376.       }
  377.       else {
  378.         set %formats %tmpformats
  379.         unset %tmpformats
  380.         iecho Script theme ' $+ $1 $+ ' is an invalid ircN script theme.
  381.       }
  382.     }
  383.     else iecho Unable to locate script theme ' $+ $hc($1) $+ '
  384.   }
  385.   else load $1-
  386. }
  387. loadsettings dialog -m ircN.loadsettings ircN.loadsettings
  388. mail dialog -m ircN.pop3 ircN.pop3
  389. mchk {
  390.   if (($lines($td(msg.txt)) == 0) || ($exists($td(msg.txt)) == $false)) {
  391.     iecho No messages to read.
  392.     tsound nomsg
  393.     return
  394.   }
  395.   write -c $tp(pmsg.txt)
  396.   write $tp(pmsg.txt) exit $chr(123) set % $+ mloc $ $+ swlc(@Messages) $vl window -c @Messages $chr(125)
  397.   write $tp(pmsg.txt) -
  398.   write $tp(pmsg.txt) relist $chr(123) mchk $chr(125)
  399.   write $tp(pmsg.txt) clear $chr(123) set % $+ mloc $ $+ swlc(@Messages) $vl window -c @Messages $vl F8 $chr(125)
  400.   write $tp(pmsg.txt) -
  401.   clear @Messages
  402.   window -ae @Messages %mloc /see $tp(pmsg.txt) Courier New 412
  403.   titlebar @Messages - Message index
  404.   aline @Messages á
  405.   aline @Messages . $+ $str(-,68) $+ .
  406.   aline @Messages $vl Saved messages for $fix(47,$hc($me)) $vl
  407.   aline @Messages $vl $+ $str(-,68) $+ $vl
  408.   aline @Messages $vl Number of Msgs : $fix(49,$a.numsg) $vl
  409.   aline @Messages $vl Number of Pages: $fix(13,$div($lines($td(page.txt)),4)) (press F9 to read or F10 to delete) $vl
  410.   aline @Messages $vl Nicks Recorded : $fix(49,$a.numnk) $vl
  411.   aline @Messages $vl $fix(14,Last Message) : $fix(49,$left($a.lastmsg,47)) $vl
  412.   aline @Messages $vl $fix(14,Message From) : $fix(49,$addtok($a.lastnick,$a.lastaddy,32)) $vl
  413.   aline @Messages $vl $fix(14,Date and Time) : $fix(49,$a.lastdate) $vl
  414.   aline @Messages $vl $+ $str(-,68) $+ $vl
  415.   aline @Messages $fix(5,$vl) $fix(13,Nick) $fix(6,Msgs) $fix(41,Last Received) $vl
  416.   aline @Messages $fix(5,$vl) $fix(13,»»»») $fix(6,»»»») $fix(41,»»»»»»»»»»»»») $vl
  417.   set %i.mchk 0
  418.   :start
  419.   inc %i.mchk
  420.   if (%i.mchk <= $a.numnk) {
  421.     set %mnick $readini -n $td(msg.txt) messages nicknumber [ $+ [ %i.mchk ] ]
  422.     write $tp(pmsg.txt) %mnick
  423.     write $tp(pmsg.txt) .view $chr(123) see %i.mchk $chr(125)
  424.     write $tp(pmsg.txt) .dele $chr(123) mdel %i.mchk $chr(125)
  425.     aline @Messages $vl $fix(3,$addtok(%i.mchk,.,0)) $fix(13,%mnick) $fix(6,$a.msgno(%mnick)) $fix(41,$a.date(%mnick)) $vl
  426.     goto start
  427.   }
  428.   aline @Messages $fix(68,$vl) $vl
  429.   aline @Messages ' $+ $str(-,68) $+ '
  430.   unset %mnick
  431.   tsound gotmsg
  432. }
  433. mdel {
  434.   if ($a.nknum($1) == $null) return
  435.   if ($a.msgno($a.nknum($1)) == messages) aline @Messages %h Messages for $hc($a.nknum($1)) were deleted @ $a.addy($a.nknum($1)) $+ .
  436.   elseif (($1 > $a.numnk) || ($1 == $null)) aline @Messages %h No such nick in message index. Total Nicks: $b($a.numnk)
  437.   else {
  438.     writeini -n $td(msg.txt) messages totalnumsg $sub($a.numsg,$a.msgno($a.nknum($1)))
  439.     remini $td(msg.txt) $a.nknum($1)
  440.     writeini -n $td(msg.txt) $a.nknum($1) msgno messages
  441.     writeini -n $td(msg.txt) $a.nknum($1) ldate deleted at $atime
  442.     writeini -n $td(msg.txt) $a.nknum($1) addy $atime
  443.     aline @Messages %h Deleted messages for $hc($a.nknum($1)) at $hc($atime) $+ .
  444.     tsound delmsg
  445.   }
  446. }
  447. midi {
  448.   if ($1) set %midi $findfile($mididir,$1-*,1)
  449.   else set %midi $$dir="Select a MIDI file to play" $mididir*.mid
  450.   if ($exists(%midi)) {
  451.     .splay $nopath(%midi)
  452.     iecho ircN - [midi: $+ $nopath(%midi) $+ / $+ size: $+ $alof($file(%midi).size) $+ ] -
  453.   }
  454.   else iecho No such file: $iif($1,$iif(%midi,%midi,$1),%midi)
  455. }
  456. miscsettings dialog -m ircN.miscsettings ircN.miscsettings
  457. offer {
  458.   set %numpacks $$?="Number of Packs"
  459.   set %i.offer 0
  460.   :start
  461.   inc %i.offer
  462.   if (%i.offer <= %numpacks) {
  463.     set %get [ $+ [ %i.offer ] ] 0
  464.     set %filedesc [ $+ [ %i.offer ] ] $$?="Pack description for [ %i.offer ] "
  465.     set %fcomment [ $+ [ %i.offer ] ] $?="Comment for [ %i.offer ] (press cancel for none)"
  466.     set %file [ $+ [ %i.offer ] ] $$dir="File for pack [ %i.offer ] " *.*
  467.     goto start
  468.   }
  469.   set %showsum $$?="Show summary line? (on/off)"
  470.   iecho Xdcc offer has been set.
  471.   set %record 0
  472.   set %lrecord 0
  473.   if (%xdccs != on) xdcc on
  474.   if (%xstatus == on) xstatus on
  475. }
  476. patch .play -cs $$dir="Location of patch file" *.pch 0
  477. pw {
  478.   if ($1) {
  479.     set %encryptpw $1
  480.     iecho Encryption password set to $hc($1) $+ .
  481.   }
  482.   else iecho Syntax: /pw <password>
  483. }
  484. reconnect {
  485.   if ($server) {
  486.     quit reconnecting
  487.     server $server
  488.   }
  489.   else iecho You aren't connected to a server!
  490. }
  491. see {
  492.   if (($1 > $a.numnk) || ($1 == $null)) aline @Messages %h No such nick in message index. Total Nicks: $b($a.numnk)
  493.   elseif ($a.msgno($a.nknum($1)) == 0) aline @Messages %h Messages for $hc($a.nknum($1)) were deleted at $a.addy($a.nknum($1)) $+ .
  494.   else {
  495.     titlebar @Messages - Messages from $a.nknum($1)
  496.     aline @Messages á
  497.     aline @Messages . $+ $str(-,68) $+ .
  498.     aline @Messages $vl $center(66,Messages from [ $hc($a.nknum($1)) ] ) $vl
  499.     aline @Messages $vl $+ $str(-,68) $+ $vl
  500.     aline @Messages $vl Last Address: $fix(52,$a.addy($a.nknum($1))) $vl
  501.     aline @Messages $fix(68,$vl) $vl
  502.     aline @Messages $vl $fix(3,$chr(35)) Date & $fix(14,Time) $fix(40,Message) $vl
  503.     aline @Messages $vl $fix(3,») $fix(21,»»»»»»»»»»») $fix(40,»»»»»»») $vl
  504.     set %i.see 0
  505.     :start
  506.     inc %i.see
  507.     set %wrap.pos 0
  508.     if (%i.see <= $a.msgno($a.nknum($1))) {
  509.       if ($len($a.msg($a.nknum($1),%i.see)) <= 40) {
  510.         aline @Messages $vl $fix(3,$addtok(%i.see,.,0)) $fix(21,$a.dte($a.nknum($1),%i.see)) $fix(40,$a.act($1,%i.see,$a.msg($a.nknum($1),%i.see))) $vl
  511.         goto start
  512.       }
  513.       aline @Messages $vl $fix(3,$addtok(%i.see,.,0)) $fix(21,$a.dte($a.nknum($1),%i.see)) $fix(40,$a.act($1,%i.see,$wrap(1,40,$a.msg($a.nknum($1),%i.see)))) $vl
  514.       set %j.see %wrap.pos
  515.       :start1
  516.       if (%j.see < $len($a.msg($a.nknum($1),%i.see))) {
  517.         aline @Messages $fix(27,$vl) $fix(40,$a.act($1,%i.see,$wrap(%j.see,40,$a.msg($a.nknum($1),%i.see)))) $+  $vl
  518.         inc %j.see %wrap.pos
  519.         goto start1
  520.       }
  521.       goto start
  522.     }
  523.     set %f12cmd mdel $1
  524.     aline @Messages $fix(68,$vl) $vl
  525.     if ($1 == $a.numnk) {
  526.       set %f11cmd F8
  527.       aline @Messages $vl $+ $str(-,68) $+ $vl
  528.       aline @Messages $vl $center(66,Press [ $hc(F11) ] to erase all, press [ $hc(F12) ] to erase [ $hc($a.nknum($1)) $+ 's ] messages.) $vl
  529.       aline @Messages ' $+ $str(-,68) $+ '
  530.       aline @Messages %h $ac(END) of saved messages.
  531.     }
  532.     else {
  533.       set %f11cmd see $pls($1,1)
  534.       aline @Messages $vl $+ $str(-,68) $+ $vl
  535.       aline @Messages $vl $center(66,Press [ $hc(F11) ] to view next, press [ $hc(F12) ] to erase [ $hc($a.nknum($1)) $+ 's ] messages.) $vl
  536.       aline @Messages ' $+ $str(-,68) $+ '
  537.     }
  538.     tsound seemsg
  539.   }
  540. }
  541. sendmail {
  542.   if ($1 == $null) {
  543.     iecho Syntax: /sendmail <email address> [subject]
  544.     return
  545.   }
  546.   unset %rcpt %subj
  547.   set %rcpt $1
  548.   if ($2) set %subj $2-
  549.   else set %subj Re:
  550.   dialog -m ircN.smtp ircN.smtp
  551. }
  552. server {
  553.   if ($left($1,1) == +) irc2 $getright($1) $2-
  554.   else server $1-
  555. }
  556. servers dialog -m ircN.servers ircN.servers
  557. setpop {
  558.   set %account $$?="Enter a name for this account"
  559.   set %tmp.setpop $?!="Make this your default account?"
  560.   set %i.setpop $$?="POP3 address of mail server"
  561.   set %j.setpop $$?="Enter your full email address"
  562.   set %k.setpop $$?="Enter your POP3 account name"
  563.   writeini -n ircNdata.ini %account mailip %i.setpop
  564.   if (%tmp.setpop) set %maildef %account
  565.   writeini -n ircndata.ini %account email %j.setpop
  566.   writeini -n ircndata.ini %account username %k.setpop
  567.   if ($?*="Password for [ $mail.name(%account) ] (optional)") {
  568.     crypt 0 $lower(%account) $!
  569.     writeini -n ircndata.ini %account emailpass $result
  570.   }
  571.   set %mailaccounts $addtok(%mailaccounts,%account,44)
  572.   iecho $hc(POP3) mail setup successful.
  573. }
  574. setsmtp {
  575.   set %smailip $$?="Enter SMTP server address"
  576.   set %myn $$?="Your name (or handle/nick)"
  577.   set %remail $$?="Enter reply-to address"
  578.   set %signature $dir="Location of signature file (cancel for none)" \
  579.   iecho $hc(SMTP) mail setup successful.
  580. }
  581. setupsettings dialog -m ircN.setupsettings ircN.setupsettings
  582. sF1 run command.com
  583. sF2 run explorer.exe
  584. sF3 if (%sf3cmd) %sf3cmd
  585. sF4 if (%sf4cmd) %sf4cmd
  586. sF5 if (%sf5cmd) %sf5cmd
  587. sF6 if (%sf6cmd) %sf6cmd
  588. sF7 if (%sf7cmd) %sf7cmd
  589. sF8 if (%sf8cmd) %sf8cmd
  590. sF9 if (%sf9cmd) %sf9cmd
  591. sF10 wholeft
  592. sF11 if (%sf11cmd) %sf11cmd
  593. sF12 if (%sf12cmd) %sf12cmd
  594. sv say ircN - [ver $+ $gettok(%ver,2,32) $+ ] - $nv($1) -
  595. t2 {
  596.   if ((%sthemes == on) && (%script-theme)) say ircN - [ver $+ $gettok(%ver,2,32) $+ ] - $nv($1) - [ $nopath(%formats) $+ ( $+ %script-theme $+ ) ] -
  597.   elseif ((%sthemes == on) && (%script-theme == $null)) iecho No script theme loaded.
  598.   else iecho Script themes are turned off.
  599. }
  600. telnet {
  601.   if ($1 != $null) {
  602.     set %tmp.telnet $1
  603.     if ($2) set %i.telnet $2
  604.     else set %i.telnet %def.tel.port
  605.     if (%i.telnet == 23) {
  606.       run %def.tel.exe %tmp.telnet %i.telnet
  607.       return
  608.     }
  609.     set %j.telnet 0
  610.     :start
  611.     inc %j.telnet
  612.     if ($sock($addtok(iTelnet,%j.telnet,46)) == $null) sockopen $addtok(iTelnet,%j.telnet,46) %tmp.telnet %i.telnet
  613.     else goto start
  614.   }
  615.   else iecho Syntax: /telnet <host> [port]
  616. }
  617. themesettings dialog -m ircN.themesettings ircN.themesettings
  618. tv {
  619.   if (%theme == on) say ircN - [ver $+ $gettok(%ver,2,32) $+ ] - $nv($1) - [ $themefn ] -
  620.   else iecho No theme loaded.
  621. }
  622. userprot dialog -m ircN.userprot ircN.userprot
  623. usersettings dialog -m ircN.usersettings ircN.usersettings
  624. quit {
  625.   if ($1 != $null) quit $1-
  626.   else quit $read -n $td(quotes.txt)
  627.   titlebar [[ Not Connected ]] [[ $strip(%iver) ]]
  628. }
  629. unidle {
  630.   if ($me ison %idlechan) part %idlechan
  631.   timoff %idlectimer idlectimer
  632. }
  633. wav {
  634.   if ($1) set %wav $findfile($wavedir,$1-*,1)
  635.   else set %wav $$dir="Select a WAV file to play" $wavedir*.wav
  636.   if ($exists(%wav)) {
  637.     .splay $nopath(%wav)
  638.     iecho ircN - [wav: $+ $nopath(%wav) $+ / $+ size: $+ $alof($file(%wav).size) $+ ] -
  639.   }
  640.   else iecho No such file: $iif($1,$iif(%wav,%wav,$1),%wav)
  641. }
  642. viewfile {
  643.   if ($1) {
  644.     set %viewfile $1
  645.     dialog -m ircN.viewfile ircN.viewfile
  646.   }
  647. }
  648. wholeft {
  649.   set %i.wholeft 0
  650.   :start
  651.   inc %i.wholeft
  652.   if ((%i.wholeft == 1) && ($ns.rserv(%i.wholeft) == $null)) iecho No servers have split.
  653.   elseif ($ns.rserv(%i.wholeft)) {
  654.     if (%i.wholeft == 1) {
  655.       write -c $tp(whopop.txt)
  656.       write $tp(whopop.txt) exit $chr(123) set % $+ wholoc $ $+ swlc(@Wholeft) $vl window -c @Wholeft $chr(125)
  657.       write $tp(whopop.txt) -
  658.       window -a @Wholeft %wholoc $tp(whopop.txt) FixedSys 412
  659.       aline @Wholeft . $+ $str(-,60) $+ .
  660.       aline @Wholeft $vl $center(58,Split Servers) $vl
  661.       aline @Wholeft $vl $+ $str(-,60) $+ $vl
  662.     }
  663.     aline @Wholeft $vl Split [[ $+ $lfix(2,$hc(%i.wholeft)) $+ ]] $fix(47, [ $gettok($ns.rserv(%i.wholeft),2,38) ] from [ $gettok($ns.rserv(%i.wholeft),1,38) ] ) $vl
  664.     write $tp(whopop.txt) $replace($gettok($ns.rserv(%i.wholeft),2,38),*,irc) $chr(123) server $replace($gettok($ns.rserv(%i.wholeft),2,38),*,irc) $chr(125)
  665.     set %j.wholeft 0
  666.     :start2
  667.     inc %j.wholeft
  668.     if ($ns.rnick2($ns.rserv(%i.wholeft),%j.wholeft)) {
  669.       if (%j == 1) aline @Wholeft $fix(60,$vl) $vl
  670.       aline @Wholeft $fix(7,$vl) $lfix(2,%j.wholeft) $+ . $fix(25,$hc($gettok($ns.rnick2($ns.rserv(%i.wholeft),%j.wholeft),1,32))) $fix(22,$wrpt($sub($ticks,$gettok($ns.rnick2($ns.rserv(%i.wholeft),%j.wholeft),2,32)))) $vl
  671.       goto start2
  672.     }
  673.     aline @Wholeft $fix(60,$vl) $vl
  674.     goto start
  675.   }
  676.   else aline @Wholeft ' $+ $str(-,60) $+ '
  677. }
  678. www {
  679.   if ($1 != $null) run $browser $1-
  680.   else iecho Syntax: /www <internet address>
  681. }
  682.